procedure GetClutValues(index : integer; var red, green, blue : integer);

Gets the red, green, and blue components of the specified LUT index.  Only indexes 1 to 254 are valid.

Also see:  SetClutValues  SaveClut